МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра «Захист інформації»
EMBED Word.Picture.8
Звіт
до лабораторної роботи № 2
Побудова графіків функцій засобами мови турбо-паскаль
з курсу “ Комп’ютерна графіка”
Виконав:
студент групи ІБ – 44
Перевірив:
Баран Р. Д.
Львів 2009
Мета роботи - набути практичних навиків в складанні програм для побудови графіків функ-цій за допомогою засобів мови Турбо Паскаль.
КОРОТКІ ТЕОРЕТИЧНІ ДАНІ
Графіки, гістограми, діаграми тощо призначені для візуалізації (полегшення сприйняття людиною) числових результатів обробки інформації. При використанні комп’ютера в інженерних та наукових дослідженнях появі зображення на екрані монітора передують складні математичні розрахунки, які виконуються, як правило, в системі координат об’єкту дослідження. Така система координат називається реальною. Зображення, яке візуалізує на екрані результати розрахунків, формується в машинних координатах, характер яких визначається режимом роботи відеоадаптера.
Тому для адекватного відображення числових результатів на екрані необхідно для кожної прикладної задачі розробити чіткий алгоритм приведення реальних координат об’єкту дослідження до машинних координат. Зокрема, визначити відображення центру реальних координат на екрані в машинних координатах та функціональні залежності для розрахунку машинних координат.
Завдання:
Текст програми:
Program labo_two;
Uses Crt, Graph;
var Gd, Gm, xs, ys : integer;
x, x_cur, x_next, y, y_cur, y_next, h, k : real;
k_x, k_y, Max_x, Max_y, temp : real;
text : string;
Begin
Gd := DETECT;
InitGraph(Gd, Gm, '');
if GraphResult = grOK then begin
xs := 64;
{ centre X }
ys := 64;
{ centre Y }
h := 0.5;
{ krok }
x := 0.001;
{ startv X }
Max_x := 180.0;
Max_y := 0.0;
{ ===================================================================== }
moveto(xs, ys); lineto(xs, 1);
{ osi }
moveto(xs, ys);
lineto(xs, GetMaxY-1);
moveto(xs, ys); lineto( 1, ys);
moveto(xs, ys); lineto(GetMaxX-1, ys);
moveto(xs, 1); lineto(xs-2, 10);
{ strilky }
moveto(xs, 1);
lineto(xs+2, 10);
moveto(GetMaxX-1, ys);
lineto(GetMaxX-11, ys-2);
moveto(GetMaxX-1, ys);
lineto(GetMaxX-11, ys+2);
moveto(xs-11, ys+5);
OutText('0');
{ poznachennay }
moveto(xs+6, 3);
OutText('Y');
moveto(GetMaxX-10, ys-12);
OutText('X');
{ =========== VUZNACHENNYA KOEFICIENTY ================================ }
k_x := (GetMaxX - xs)/Max_x;
While x <= Max_x do begin
y := 20 * (sin(x/7) - cos(x/10) + ln(2 * x + 10));
x := x + h;
if (y > Max_y) then Max_y := y;
end;
k_y := (GetMaxY - ys)/Max_y;
if k_x >= k_y then k := k_y else k := k_x;
{ =========== ZARYBKY ================================================= }
x := 0.001;
{ RESET }
While (xs + temp) < (GetMaxX - 64) do begin
temp := temp + k * h*40;
x := x + h*40;
str(trunc(x), text);
moveto(trunc(xs+temp), trunc(ys));
lineto(trunc(xs+temp), trunc(ys-4));
moveto(trunc(xs+temp), trunc(ys));
lineto(trunc(xs+temp), trunc(ys+4));
moveto(trunc(xs+temp), trunc(ys-14));
OutText(text);
{ moveto(trunc(xs-temp), trunc(ys));
lineto(trunc(xs-temp), trunc(ys-4));
}
{ moveto(trunc(xs-temp), trunc(ys));
lineto(trunc(xs-temp), trunc(ys+4));
}
{ moveto(trunc(xs), trunc(ys-temp));
lineto(trunc(xs-4), trunc(ys-temp));
}
{ moveto(trunc(xs), trunc(ys-temp));
lineto(trunc(xs+4), trunc(ys-temp));
}
moveto(trunc(xs), trunc(ys+temp)...
